“ SiS8S8S8SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ee eS ae» a © a © ae 
Ae. Ge. Oe. Oe. Oe. Oe. Oe. Oe. Oe. Oe. A. Oe. he. et ts te ta ts te 
he be te be be Oe be be be be be be te te es a a te 


E RRRRRRRRRRRR 
E RRRRRRRRRRRR 
E RRRRRRRRRRRR 


Se ete e pete pec prelrelveyvelvelvulververververre) 
Se eee epeeteeleereeleelvelverververrel 
Soe edo d oe LoodeeRootoehootucleeteclvesectvelveneereelvenyel 


vss ele) s] elesle ele le lee lee le ol ele) ol ele) eo) eo) eo) eo) et at hee oe oe ed oh Lh La a A A eh ld 
INICIO NINN NIN NINN NIN NINN NINN NINN INNO 
polelelolelelelelealaleleleleleleleolelolelolol ole olololol~lelolol ool ol elo ol ela ala ala ala al ala) 


> 
a 
YL 


>> >> 
>>>> 

>> 

>> 

>>>>>>>> 
>>> >> >>> 

>> 

>> 
ae 
Ss 
wee min 
kk A kk 
te tk ek 
ak oa Se 
te tk we 
_— (ON © as 
eS se. te. te. te te te 
CO a Oa ee [Va Va Oe ee 

‘ 

—— “4 


al Conia 
a tg tn dt at Ot Py dg 
we et Oe ge tg et a a a 


seta ceeieeel 
ee ete 
~w 
mn ANNNM 
mn MMWMnM 
@ unm nw mw 
nn mw nn 
nw i now nw 
mw mw ww 
nn mn nn 
mm nw “nn 
MMMM mw 
MMMM nn 
mn MWMWMn 
mn MMMM 
ow own mn 
mn nw own 
nn own nw 
own mn own 
ww nn wn 
nw nw “nw 
MWMWMnn nw 
MMMM nn 
<= “nw MMMM 
$22222222222 aa Baan 
=¢ “nw “nn nn 
< “nw “wn nn 
<< nw nw nn 
<= nw “Vw nn 
<= nw “nw “wn 
” 
222222222222 Baan aa 
44 
=) 
a = ee 
44 Ciemel as 
44 Et at ae ad Ot ty Og Od Od gd ng Oe 
au EE ng Oy Oy nd Og Oe Be Be ng ae 
| et oe oe 
at ad oe Conon 
aod I I I I I I I 
ad ed ad od od od 2) A od od A I I 
ww Wu P| 
ww Vu ed at 
wu Vu a | 
wv Uw aa 
vwwv Vw Jj4 
vww VvYU | 
ww wv ala 
ww Vu ce 
VVVVYVYVYYYY cd ed ed ed ad ad) od) ed) od) od) od) I) 
VBVVEYYYUYYY ce ed ed ed ed ad ed ed od od od =) 


> 
— 
” 
” 
| 
-_ 
ad 
cd 
oa 
aon 
ie 
* 
[ve] 
=) 
ot 
he 
aa 
- 


] 
VAX~ 11 FORTRAN V3.6-5 Page 1 cry 
DISKSVMSMASTER:CERF.S SRCICLASSIFY. FOR;1 
0004 . SUBROUTINE CLASSIFY (LUN,SBI_REGA) PRC 
$008 : Version: *v04-000' ' 
5 METIITITIIIITIITI IIIT IITI IIIT LILI LLL LiL LiL LiLitiiiltitiiiiiill 
Ce © 
ota C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * - 
8  C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
oye * ALL RIGHTS RESERVED. * 
® 
0011 Ce alg SOF TWARE i$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 1 
Bpt6 Ce Y IN. ACCORDANCE WITH THE TERNS OF rey CH LIC ENSE AND WITH THE * EN 
1 C* ON NCL USION OF THE ABOVE pda NOTICE. This SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Bore ~ TRANSFERRED. % ¢ 
® 
0018 C* THE gt re IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT % VAR 
Bese ES CORPORATION. ® 
® 
0038 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ‘ 
BB Z SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 3 
0095 Ce * ; 
0026 COR e eee REE AAA ARE AAA AAA AERA RARE ARATE AAAS = 
0058 
+ 34 C AUTHOR BRIAN PORTER CREATION DATE 11=DEC-1979 3 
0030 C AF 
0031 3 
ot C++ 3 
et ‘ Functional description: ‘ 
9035 ¢ This module is called to identify SBI adapters. 3 
it fA : Modified by: 
0039 C V03-002 SARO0067 Sharon A. Reynolds, 20-Jun-1983 
0040 C Changed the carriage control in the ‘format’ statements 
poe) : for use with ERF. 
b0c8 C v03-001 BP0004 Brian Porter, 19-FEB-1982 
pee C Added ci780 support. 
5 Cee 
0046 (-- 
0047 
0048 
0049 
B030 
51 BYTE LUN 
2036 
B03? INTEGER*4 SBI_REGA | 
0085 INTEGER*4 FIELD 
0057 parameter ci780 = 56 | 


itnemniiinnmmaes ee ai . -- 


CLASSIFY if: sep 1984 M3sBi4S «— DTSKSUmSMASTER: CERF SRCICLASSIFY.FORTI™™ | 


else if (field .eq. ci780) then 
call ci780_rega (lun,sbi_rega) 


Is it a memory? 


p08 
9 PARAMETER DR780 = 48 
1 PARAMETER MBA = 32 
: PARAMETER UBA_0 = 40 
5 PARAMETER UBA_3 = 43 
006 
0068 c 
34 : Extract adapter type information 
So72 field = Lib$Sextzv(0,8,sbi ) 
eld = extzv(0,8, 
Borg xtzv sbi_rega 
0074 C 
0075 C Is it the DR780? 
0076 C 
0077 
ore if (field .eq. dr780) then 
sles call dr780_rega (lun,sbi_rega) 
008 c 
008 c Is it the RH780? 
0084 c 
0085 
aoe else if (field .eq. mba) then 
t's call rh780_configuration_register (lun,sbi_rega) 
0090 c 
0091 c Is it the DW780? 
$095 c 
009 
Spe else if (field .ge. uba_0 .and. field .le. uba_3) then 
94 call uba_rega (lun,sbi_rega) 
0098 C 
C Is it the C1780? 
C 
| 
| 
| 


else if (LibSextzv(5,3,sbi_rega) .eq. 0) then | 
call ms780c_rega (lun,sbi_rega) 
else if (LibSextzv(5,3,sbi_rega) .eq. 2) then 
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VAX-11 FORTRAN 


4 
CLASSIFY ig peat s 9 0 i] 749 
: DISKSVMSMASTER: 


115 
Og call ma780_rega (lun,sbi_rega) 
O18 else if (LibSextzv(5,3,sbi_rega) .eq. 3) then 
O1 call ms780e_rega (lun,sbi_rega) 
1 Cc 
a i c The if-then-else should be expanded at this point to add 
0124 C new adapter support. 
0125 c 
ss 
1 ELSE 
0128 
4 9 CALL LINCHK (LUN,2) 
0131 wee Lm 70) SB1_REGA 
01 ¢ 70 MAT(/* *,78,°SBI REG ‘‘A’'',124,78.8) 
ot ENDIF 
0135 RETURN 
01 
0137 END 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 298 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 45 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 60 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 402 


ENTRY POINTS 
Address Type 
0-00000000 


Name 
CLASSIFY 


VARIABLES 
Address Type 
2-00000000 [4 


Name Address Type Name 


AP-00000004@ L*1 LUN 


Address Type Name 
AP-00000008@ I*4 SBI_REGA 


3.4-56 Page 3 
ERF. SRCICLASSIFY. FOR; 1 


eet 


F 4 
sr VSSSSCASEE SRSSENE Baga 
LABELS 
Address Label 
1=00000014 70° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
cinema pi740 AEA me suis 
MS780E_REGA RH780_CONF IGURATION_REGISTER 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:CLASSIF Y/OBJ=OBJ$:CLASSIFY MSRC$:CLASSIFY 


/ CHE CK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
/DEBUG=(NOSYMBOLS$, TRACEBACK) 
/STANDARD=(NOSYNTAX NOSOURCE FORM) 
/SHOW= (NOPREPROCESSOR , NOINCLUDE 


3.425 
CERF SRCICLASSIFY.FORST >” 


/*77 /NOG_FLOATING ie WOPTIAIZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


1.39 seconds 
4.93 seconds 


Run Time: 
Elapsed Time: 
Page Faults: 


94 
Dynamic Memory: 169 pages 
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STR 
v04 


PMENT CORPORATION 
.AND PROPRIETARY 


AH-BT13A-SE 


0147 
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